1 REM *********************************
2 REM *                               *
3 REM *  PGM TITLE : READER'S SURVEY  *
4 REM *  PGM AUTHOR: DAVE HAMMOND     *
5 REM *                               *
6 REM *  (C)1986 VIKING TECHNOLOGIES  *
7 REM *    (C)1986 UPTIME MAGAZINE    *
8 REM *                               *
9 REM *********************************
10 :
15 IF X=0 THEN X=1: LOAD "0:LPTR RTN",8,1
16 :
20 PRINT CHR$(8)CHR$(14)
30 UPTIME=(8*4096)+4: DE=186
40 POKE53280,0: POKE53281,0
95 :
100 GOSUB 1000: REM *** SCREEN TEMPLATE ***
110 GOSUB 1500: REM *** SCREEN #1 ***
115 :
120 GET K$: IF K$="" THEN 120
130 IF K$=CHR$(140) THEN 550
140 IF K$<>CHR$(13) THEN 120
195 :
200 GOSUB 1600: REM *** SCREEN #2 ***
205 :
210 GET K$: IF K$="" THEN 210
220 IF K$=CHR$(140) THEN 550
230 IF K$<>CHR$(13) THEN 210
295 :
300 GOSUB 1700: REM *** SCREEN #3 ***
305 :
310 GET K$: IF K$="" THEN 310
320 IF K$=CHR$(140) THEN 550
330 IF K$<>CHR$(13) THEN 310
395 :
400 GOSUB 1800: REM *** SCREEN #4 ***
405 :
410 ML=23: GOSUB 5000: REM *** GET KBD INPUT ***
415 :
420 N$=T$: IF T$="" THEN N$="AN ANONYMOUS SOURCE"
425 :
430 GOSUB 1900: REM *** SCREEN #4 CON'T ***
435 :
440 GET K$: IF K$="" THEN 440
450 IF K$=CHR$(140) THEN 550
460 IF K$<>CHR$(13) THEN 440
465 :
500 ER=0: GOSUB 2000: REM *** OUTPUT TO PRINTER ***
505 IF ER=1 THEN GOTO 600
506 :
510 GOSUB 3000: REM *** SCREEN #5 ***
515 :
520 GET K$: IF K$="" THEN 520
530 IF K$=CHR$(140) THEN 550
540 IF K$<>CHR$(13) THEN 520
545 :
550 POKE DE,8: SYS UPTIME
595 :
596 REM ***************
597 REM  PRINTER ERROR
598 REM ***************
599 :
600 GOSUB 1400: REM *** CLEAR TEXT AREA ***
605 :
610 PRINTSPC(6)" [150] [212]HERE IS A PRINTER ERROR  [155]"
620 PRINTSPC(6)"[210]ECHECK ALL OF YOUR PRINTER"
630 PRINTSPC(5)"CONNECTIONS AND THE PRINTER'S"
640 PRINTSPC(6)"PAPER SUPPLY AND TRY AGAIN."
645 :
650 GET K$: IF K$="" THEN 650
660 IF K$=CHR$(140) THEN 550
670 IF K$<>CHR$(13) THEN 650
675 :
680 GOSUB 1400: REM *** CLEAR TEXT AREA ***
685 :
690 PRINTSPC(16)"[208]RINTING"
700 PRINTSPC(12)"[210]EADER'S  [211]URVEY"
710 GOTO 500: REM *** RETRY PRINTER ***
990 END
995 :
996 REM *****************
997 REM  SCREEN TEMPLATE
998 REM *****************
999 :
1000 PRINT"[147]";
1010 TL$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1020 BL$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][155]"
1030 M1$="[221]": M2$="                                     [146][221]"
1040 M3$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
1050 C$="[158]": R$="": PRINTTL$
1060 FOR X=1TO23
1070 PRINTM1$;C$;R$;M2$
1080 IF X=5 THEN X=6: C$="": R$="[146]": PRINTM3$
1090 IF X=18 THEN X=19: C$="": R$="": PRINTM3$
1100 NEXT
1200 PRINTBL$
1210 PRINTSPC(10)" [213]P[212]IME [158] [205]AGAZINE'S"
1220 PRINTSPC(12)"[210]EADER'S [211]URVEY"
1230 FOR X=1TO16: PRINT: NEXT
1240 PRINTSPC(7)"[208]RESS [[210][197][212][213][210][206]] TO [195]ONTINUE"
1250 PRINTSPC(4)"[208]RESS [198]8 TO [197]XIT [194]ACK TO [213]P[212]IME[155]"
1290 RETURN
1395 :
1396 REM *****************
1397 REM  CLEAR TEXT AREA
1398 REM *****************
1399 REM :
1400 PRINT"";
1410 FOR X=1TO12
1420 PRINT"[221]                                     [221]"
1430 NEXT
1440 PRINT"[155]";
1450 RETURN
1495 :
1496 REM ***********
1497 REM  SCREEN #1
1498 REM ***********
1499 :
1500 GOSUB 1400: REM *** CLEAR TEXT AREA ***
1505 :
1510 PRINTSPC(8)"[213]P[212]IME THE [196]ISK [205]ONTHLY[155]"
1520 PRINTSPC(2)"IS THE [159]PREMIERE[155] MAGAZINE ON A DISK"
1530 PRINTSPC(7)"FOR THE [195]OMMODORE 64/128"
1540 PRINTSPC(5)"[215]E ARE CONSTANTLY WORKING TO"
1550 PRINTSPC(8)"IMPROVE OUR PUBLICATION"
1560 PRINTSPC(11)"AND [217][207][213][155][160]CAN HELP!"
1590 RETURN
1595 :
1596 REM ***********
1597 REM  SCREEN #2
1598 REM ***********
1599 :
1600 GOSUB 1400: REM *** CLEAR TEXT AREA ***
1605 :
1610 PRINTSPC(6)"[217]OU CAN HELP US STAY #1[155] BY"
1620 PRINTSPC(9)"PROVIDING YOUR INPUT:
1630 [153][166]6)"SYS(null)RAISELIST, PRINTLENRITICISMLIST, OPENLENOMMENTSLIST"
1640 [153][166]4)"ATNNYTHING THAT YOU FEEL WILL HELP"
1650 [153][166]7)"US MEET YOUR EXPECTATIONS"
1660 [153][166]14)"WITH (null)P(null)IMELIST"
1690 [142]
1695 :
1696 [143] ***********
1697 [143]  SCREEN #3
1698 [143] ***********
1699 :
1700 [141] 1400: [143] *** CLEAR TEXT AREA ***
1705 :
1710 [153][166]3)"PEEKY FOLLOWING THE NEXT FEW PROMPTS"
1720 [153][166]5)"YOUR PRINTER WILL PRINT OUT A"
1730 [153][166]5)"READER'S SURVEY FORM FOR YOU."
1740 [153][166]4)"(null)LEASE TAKE THE TIME TO FILL OUT"
1750 [153][166]3)"THE SURVEY AND RETURN IT USING THE"
1760 [153][166]4)"ENCLOSED BUSINESS REPLY ENVELOPE."
1770 [153][166]4)"(null)E WILL USE THE RESULTS OF THIS"
1780 [153][166]5)"SURVEY TO DETERMINE WHAT IT IS"
1790 [153][166]3)"YOU'VE COME TO EXPECT FROM (null)P(null)IMELIST": [142]
1795 :
1796 [143] ***********
1797 [143]  SCREEN #4
1798 [143] ***********
1799 :
1800 [141] 1400: [143] *** CLEAR TEXT AREA ***
1805 :
1810 [153][166]3)"RIGHT$F YOU'D LIKE TO INCLUDE YOUR NAME"
1820 [153][166]10)"ENTER IT NOW, PLEASE."
1830 [153][166]2)"(ATN [(null)VAL(null)(null)(null)(null)] WILL MAKE IT ANONYMOUS)"
1840 [153][166]4)"(null)AME:TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
1850 [153][166]8)"ONON*CMD";
1860 [142]
1895 :
1896 [143] *****************
1897 [143]  SCREEN #4 CON'T
1898 [143] *****************
1899 :
1900 [141] 5200: [143] *** CK FOR DSYWHL ***
1905 [153][166]11)"(null)EADY YOUR PRINTER"
1910 [153][166]7)"(null)RESS SYS[(null)VAL(null)(null)(null)(null)]LIST WHEN READY"
1920 [142]
1995 :
1996 [143] *******************
1997 [143]  OUTPUT TO PRINTER
1998 [143] *******************
1999 :
2000 [151]780,4: [151]782,7: [158] 828: [143] *** ML ROUTINE TO OPEN PRINTER CHN ***
2010 [139] [194](783)[175] 1 [167] ER[178]1: [137] 2490
2015 :
2020 [152]4,[199](10)
2025 [152]4,""[166]12)"(null)EADER'S (null)URVEY FOR THE LENOMMODORE 64/128    ";
2026 [152]4,"(null)OL. 1 (null)O. 7((null))"
2030 [152]4,[199](10)
2040 [152]4,"     (null)HIS SURVEY IS FROM ";N$;"."
2050 [152]4,[199](0)
2100 L$[178]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
2105 [139] DW[178]1 [167] L$[178]"................"
2165 [152]4,"     ***********************************";
2167 [152]4,"***************************************"
2170 BX$[178]"[   ]   TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
2172 [139] DW[178]1 [167] BX$[178]"[   ]   ....................................."
2175 [152]4,[199](0)
2180 [152]4,"     (null)LEASE RATE THE FOLLOWING PROGRAMS AND CATEGORIES ON A"
2190 [152]4,"     SCALE BETWEEN 1 AND 10 WITH 10 BEING THE HIGHEST."
2195 [152]4,[199](0)
2200 [152]4,"     LEFT$UBIE THE LENUBIE  ";BX$
2205 [152]4,[199](0)
2206 [152]4,"     CHR$ALACTIC (null)UNACY  ";BX$
2207 [152]4,[199](0)
2210 [152]4,"     (null)ASTERMIND       ";BX$
2212 [152]4,[199](0)
2214 [152]4,"     LENREDIT LENARD (null)GR. ";BX$
2215 [152]4,[199](0)
2220 [152]4,"     (null)ORD (null)ASTER 64   ";BX$
2225 [152]4,[199](0)
2230 [152]4,"     ASCONT LEFT$UNT        ";BX$
2235 [152]4,[199](0)
2240 [152]4,"     VALDITOR (null)LUS      ";BX$
2247 [152]4,[199](0)
2250 [152]4,"     (null)CREEN (null)AKER 64  ";BX$
2255 [152]4,[199](0)
2260 [152]4,"     (null)ESAR ON (null)RACK   ";BX$
2261 [152]4,[199](0)
2262 [152]4,"     (null)ROGRAMMING W/(null)(null) ";BX$
2265 [152]4,[199](0)
2266 [152]4,"     (null)HREAK (null)REAT     ";BX$
2267 [152]4,[199](0)
2270 [152]4,"     (null)SING STR$OS        ";BX$
2272 [152]4,[199](0)
2276 [152]4,"     (null)OFTWARE (null)EVIEWS ";BX$
2277 [152]4,[199](0)
2280 [152]4,"     RIGHT$'D RATE THE ISSUE OVERALL  [   ]
2285 PRINT#4,CHR$(0)
2287 PRINT#4,CHR$(0)
2300 PRINT#4,"     [193]NY OTHER COMMENTS OR OBSERVATIONS YOU'D CARE TO MAKE:"
2305 PRINT#4,CHR$(0)
2310 PRINT#4,"     ";L$;L$;L$;L$
2315 PRINT#4,CHR$(0)
2320 PRINT#4,"     ";L$;L$;L$;L$
2325 PRINT#4,CHR$(0)
2326 PRINT#4,"     ";L$;L$;L$;L$
2327 PRINT#4,CHR$(0)
2328 PRINT#4,"     ";L$;L$;L$;L$
2330 PRINT#4,CHR$(12)
2340 GOSUB 5500
2490 CLOSE4: RETURN
2995 :
2996 REM ***********
2997 REM  SCREEN #5
2998 REM ***********
2999 :
3000 GOSUB 1400: REM CLEAR TEXT AREA
3005 :
3010 PRINTSPC(5)"[212]HANK-YOU FOR TAKING THE TIME"
3020 PRINTSPC(8)"TO PRINT OUT THE SURVEY."
3030 PRINTSPC(3)"[215]E'LL BE WAITING TO HEAR FROM YOU."
3040 PRINTSPC(2)"[208]LEASE SEND THE COMPLETED SURVEY TO"
3050 PRINTSPC(8)"[213]P[212]IME, THE [196]ISK [205]ONTHLY[155]"
3060 PRINTSPC(8)"[208][207] [194]OX 299"
3070 PRINTSPC(8)"[206]EWPORT, [210][201] 02840"
3080 RETURN
4995 :
4996 REM ***********
4997 REM  KBD INPUT
4998 REM ***********
4999 :
5000 T$="": CS$="*[157]": CT=0
5010 GET K$: IF K$="" THEN 5010
5020 K=ASC(K$)
5025 IF K=140 THEN 550
5030 IF K=13 THEN 5100
5040 IF K<>20 THEN 5070
5050 IF CT=0 THEN 5010
5060 CT=CT-1: PRINT" [157][157] [157]";CS$;: T$=LEFT$(T$,CT): GOTO 5010
5070 IF CT=ML THEN 5010
5080 IF (K=32) OR (K=46) THEN 5085
5082 IF (K$>="A") AND (K$<="Z") THEN 5085
5084 IF (K$<"[193]") OR (K$>"[218]") THEN 5010
5085 T$=T$+K$: CT=CT+1: PRINTK$;: IF CT<>24 THEN PRINTCS$;
5090 GOTO 5010
5100 IF T$="" THEN PRINT"[193]NONYMOUS";
5110 PRINT" ": RETURN
5195 :
5196 REM ****************************
5197 REM  CK FOR DAISY WHEEL PRINTER
5198 REM ****************************
5199 :
5200 PRINTSPC(9)"[155][195]AN YOUR PRINTER PRINT"
5210 PRINTSPC(5)"[195]OMMODORE [199]RAPHIC CHARACTERS?"
5220 PRINTSPC(15)"[158]< [217] / [206] >[155]": PRINT"[145][145][145]";
5230 DW=0
5240 GET K$: IF K$ = "" THEN 5240
5250 IF (K$="Y") OR (K$="[217]") THEN 5280
5255 IF K$=CHR$(140) THEN 550
5260 IF (K$<>"N") AND (K$<>"[206]") THEN 5240
5270 DW=1
5280 FOR X=1TO3: PRINT"                                   ": NEXT
5285 PRINT"[145][145][145][145]";
5290 RETURN
5500 REM
5510 FOR I=1 TO 5
5520 PRINT#4,CHR$(10);:NEXT
5530 PRINT#4,"   [215]ITH THIS MONTH'S [210]EADER'S [211]URVEY, WE ARE ASKING FOR YOUR ";
5535 PRINT#4,"ASSISTANCE.":PRINT#4,"[215]E'D LIKE TO PRESENT";
5540 PRINT#4," [213]P[212]IME TO THE THOUSANDS ([207][203], MILLIONS) OF COMPUTER"
5550 PRINT#4,"USERS ACROSS [193]MERICA WHO HAVE NEVER";
5560 PRINT#4," HEARD OF US.  [193]S MANY OF YOU MAY KNOW,"
5565 PRINT#4,"[213]P[212]IME ADVERTISES IN MANY OF THE POPULAR";
5570 PRINT#4," COMPUTER MAGAZINES AVAILABLE TODAY":PRINT#4,"AS WELL AS ";
5580 PRINT#4,"THROUGH A VIGOROUS MAIL CAMPAIGN.  [194]UT MUCH OF [193]MERICA ";
5585 PRINT#4,"STILL DOESN'T"
5590 PRINT#4,"KNOW WHAT A GREAT PRODUCT [213]P[212]IME IS.";
5600 PRINT#4,"  [200]ERE IS HOW YOU CAN HELP US AND ALL OF"
5610 PRINT#4,"THOSE COMPUTER ENTHUSIASTS WHO WILL BE GLAD YOU DID."
5620 PRINT#4,CHR$(10)"   [213]P[212]IME HAS AN OPPORTUNITY TO APPEAR ON [212]HE [195]OMPUTER";
5630 PRINT#4," [211]HOW.  [212]HE SHOW APPEARS"
5635 PRINT#4,"ON [208][194][211] IN [206]EW [197]NGLAND AND IS SYNDICATED";
5640 PRINT#4," ACROSS THE NATION.  [201]T'S A GREAT"
5645 PRINT#4,"PROGRAM- THE ONLY REAL ";
5650 PRINT#4,"FORUM MICROCOMPUTER USERS HAVE ON A";
5655 PRINT#4," NATIONWIDE SCALE."
5660 PRINT#4,"[212]HE [195]OMPUTER [211]HOW IS AN INTERACTIVE PROGRAM, WITH LISTENERS ";
5670 PRINT#4,"CALLING THE":PRINT#4,"EVENING'S SPECIAL GUESTS FROM";
5675 PRINT#4," THE MICROCOMPUTING INDUSTRY";
5680 PRINT#4," WITH QUESTIONS AND":PRINT#4,"COMMENTS ON VARIOUS PRODUCTS."
5690 PRINT#4,CHR$(10)"   [193]T THE RECENT [205]AC[215]ORLD [197]XPO IN [194]OSTON, WE MET";
5695 PRINT#4," THE SHOW'S PRODUCER, [211]TEVE"
5700 PRINT#4,"[210]OSENTHAL.  [211]TEVE WAS VERY EXCITED ABOUT [213]P[212]IME";
5710 PRINT#4," AND TOLD US ALL WE NEEDED TO"
5720 PRINT#4,"DO TO APPEAR ON THE SHOW WAS TO CONVINCE HIM HE SHOULD BOOK US."
5730 PRINT#4,CHR$(10)"   [206]OW, WITH ALL THE PEOPLE IN THE COMPUTER WORLD";
5735 PRINT#4," CHASING AFTER THIS MAN'S TIME,"
5740 PRINT#4,"HOW WERE WE TO DO THIS CONVINCING?  [212]HEN IT CAME TO US - ";
5750 PRINT#4,CHR$(34)"[215]HAT IF THOUSANDS, [206][207],"
5760 PRINT#4,"TENS OF THOUSANDS OF [213]P[212]IME SUBSCRIBERS WROTE TO THIS MAN.";
5765 PRINT#4,"  [212]HAT WOULD CONVINCE"
5770 PRINT#4,"HIM THAT WE SHOULD APPEAR ON HIS SHOW."CHR$(34)"  [193]ND IF";
5780 PRINT#4," HE WERE TO GET SAY, FIFTY"
5785 PRINT#4,"THOUSAND LETTERS ASKING FOR [213]P[212]IME";
5790 PRINT#4," TO APPEAR ON THE SHOW, WOULDN'T HE HAVE":PRINT#4,"TO ACT?"
5800 PRINT#4,CHR$(10)"   [211]O THIS IS OUR REQUEST.  [217]OUR SURVEYS KEEP TELLING US";
5810 PRINT#4," WE'RE GIVING YOU A"
5815 PRINT#4,"GOOD VALUE FOR YOUR SOFTWARE DOLLARS.  [205]AIL ";
5820 PRINT#4,"THIS OFF TO [211]TEVE [210]OSENTHAL OF THE"
5830 PRINT#4,"[195]OMPUTER [211]HOW AND LET HIM KNOW, TOO.";
5835 PRINT#4,"  [212]HE ADDRESS IS:  [211]TEVE [210]OSENTHAL,"
5840 PRINT#4,"[208]RODUCER, [212]HE [195]OMPUTER [211]HOW,";
5850 PRINT#4," 1118 [198]RESNO [193]VE., [194]ERKELEY, [195][193] 94797."
5860 PRINT#4,CHR$(10):FOR I=1 TO 80:PRINT#4,"-";:NEXT
5865 PRINT#4,CHR$(10)CHR$(10)
5867 PRINT#4,"[196]EAR [205]R. [210]OSENTHAL:"CHR$(10)
5870 PRINT#4,"   [201]'M ONE OF THE FIFTY THOUSAND ENTHUSIASTIC";
5880 PRINT#4," [213]P[212]IME SUBSCRIBERS WHO BELIEVE"
5890 PRINT#4,"THAT MILLIONS OF [193]MERICAN COMPUTING";
5900 PRINT#4," ENTHUSIASTS ARE MISSING OUT ON THE FUN."
5910 PRINT#4,"[213]P[212]IME OFFERS AT LEAST 8 GREAT PROGRAMS, ";
5920 PRINT#4,"INFORMATIVE ARTICLES, AND TUTORIALS"
5930 PRINT#4,"EVERY MONTH AND IS A TERRIFIC VALUE.  [201] THINK YOU WOULD BE ";
5940 PRINT#4,"DOING THE COMPUTING":PRINT#4,"COMMUNITY A GREAT SERVICE BY";
5950 PRINT#4," LETTING YOUR VIEWERS KNOW ABOUT [213]P[212]IME.  [212]HIS IS"
5960 PRINT#4,"MY REQUEST THAT YOU INVITE [213]P[212]IME [205]AGAZINE TO ";
5970 PRINT#4,"APPEAR ON YOUR SHOW."
5980 PRINT#4,CHR$(10)"[211]INCERELY,"
5990 PRINT#4,CHR$(10)"[206]AME:    "L$L$L$L$
6000 PRINT#4,CHR$(10)"[193]DDRESS: "L$L$L$L$
6010 PRINT#4,CHR$(10)"[195]ITY, [211][212]  [218][201][208]: "L$L$L$
6020 PRINT#4,CHR$(12):RETURN